home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 December / 1988-12.d64 / program merge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.4 KB  |  40 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 print"[147]   copyright 1988 compute! pub., inc."
  3. 30 printtab(11)"all rights reserved":sa=49152
  4. 40 v1=sa+96:h1=int(v1/256):l1=v1-h1*256:v2=sa+197:h2=int(v2/256):l2=v2-h2*256
  5. 50 fori=satosa+234:readd:ck=ck+d:pokei,d:next
  6. 60 ifck<>29233thenprint"*** error in data statements ***":end
  7. 70 pokesa+28,l1:pokesa+33,h1:pokesa+38,l2:pokesa+43,h2
  8. 80 printchr$(147);"program merge installed at";sa:end
  9. 90 rem machine language data
  10. 100 data 32,231,255,173,2,3,141,235
  11. 110 data 192,173,3,3,141,236,192,173
  12. 120 data 44,3,141,237,192,173,45,3
  13. 130 data 141,238,192,169,96,141,2,3
  14. 140 data 169,192,141,3,3,169,197,141
  15. 150 data 44,3,169,192,141,45,3,32
  16. 160 data 212,225,165,186,201,8,144,91
  17. 170 data 169,1,166,186,160,3,32,186
  18. 180 data 255,32,192,255,32,175,245,162
  19. 190 data 1,32,198,255,32,228,255,32
  20. 200 data 228,255,32,183,255,201,0,208
  21. 210 data 58,169,202,160,192,32,30,171
  22. 220 data 162,1,32,198,255,32,228,255
  23. 230 data 32,228,255,32,183,255,201,0
  24. 240 data 208,40,32,228,255,133,20,32
  25. 250 data 228,255,133,21,169,5,141,239
  26. 260 data 192,32,228,255,172,239,192,153
  27. 270 data 251,1,201,0,240,47,238,239
  28. 280 data 192,208,238,169,211,160,192,32
  29. 290 data 30,171,173,235,192,141,2,3
  30. 300 data 173,236,192,141,3,3,173,237
  31. 310 data 192,141,44,3,173,238,192,141
  32. 320 data 45,3,169,1,32,195,255,32
  33. 330 data 204,255,76,116,164,132,11,32
  34. 340 data 19,166,76,167,164,169,1,76
  35. 350 data 49,243,13,77,69,82,71,73
  36. 360 data 78,71,0,13,63,70,73,76
  37. 370 data 69,32,78,79,84,32,70,79
  38. 380 data 85,78,68,32,32,69,82,82
  39. 390 data 79,82,0
  40.